home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nojet / main.frm < prev    next >
Text File  |  1995-03-11  |  32KB  |  985 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H8000000F&
  5.    BorderStyle     =   3  'Fixed Double
  6.    Caption         =   "Contact Database"
  7.    ClientHeight    =   5490
  8.    ClientLeft      =   1035
  9.    ClientTop       =   1440
  10.    ClientWidth     =   8835
  11.    ClipControls    =   0   'False
  12.    FontBold        =   0   'False
  13.    FontItalic      =   0   'False
  14.    FontName        =   "MS Sans Serif"
  15.    FontSize        =   8.25
  16.    FontStrikethru  =   0   'False
  17.    FontUnderline   =   0   'False
  18.    Height          =   5925
  19.    Icon            =   MAIN.FRX:0000
  20.    Left            =   960
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   5490
  24.    ScaleWidth      =   8835
  25.    Top             =   1080
  26.    Width           =   8985
  27.    Begin PictureClip picClip 
  28.       Cols            =   4
  29.       Location        =   "1140,720,4140,7560"
  30.       Picture         =   MAIN.FRX:0302
  31.       Rows            =   3
  32.    End
  33.    Begin PictureBox picDataCtl 
  34.       AutoRedraw      =   -1  'True
  35.       BackColor       =   &H8000000F&
  36.       ClipControls    =   0   'False
  37.       Height          =   270
  38.       Left            =   3840
  39.       ScaleHeight     =   240
  40.       ScaleWidth      =   1125
  41.       TabIndex        =   36
  42.       Top             =   4980
  43.       Width           =   1155
  44.       Begin Image imgDataCtl 
  45.          Enabled         =   0   'False
  46.          Height          =   240
  47.          Index           =   0
  48.          Left            =   0
  49.          Top             =   0
  50.          Width           =   285
  51.       End
  52.       Begin Image imgDataCtl 
  53.          Enabled         =   0   'False
  54.          Height          =   240
  55.          Index           =   1
  56.          Left            =   285
  57.          Top             =   0
  58.          Width           =   285
  59.       End
  60.       Begin Image imgDataCtl 
  61.          Enabled         =   0   'False
  62.          Height          =   240
  63.          Index           =   2
  64.          Left            =   555
  65.          Top             =   0
  66.          Width           =   285
  67.       End
  68.       Begin Image imgDataCtl 
  69.          Enabled         =   0   'False
  70.          Height          =   240
  71.          Index           =   3
  72.          Left            =   840
  73.          Top             =   0
  74.          Width           =   285
  75.       End
  76.    End
  77.    Begin CommandButton cmdButton 
  78.       Cancel          =   -1  'True
  79.       Caption         =   "&Find"
  80.       FontBold        =   0   'False
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   8.25
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       Height          =   375
  87.       Index           =   4
  88.       Left            =   7260
  89.       TabIndex        =   20
  90.       Top             =   2040
  91.       Width           =   1335
  92.    End
  93.    Begin CommandButton cmdButton 
  94.       Caption         =   "&Delete"
  95.       FontBold        =   0   'False
  96.       FontItalic      =   0   'False
  97.       FontName        =   "MS Sans Serif"
  98.       FontSize        =   8.25
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   375
  102.       Index           =   3
  103.       Left            =   7260
  104.       TabIndex        =   19
  105.       Top             =   1590
  106.       Width           =   1335
  107.    End
  108.    Begin CommandButton cmdButton 
  109.       Caption         =   "&New"
  110.       FontBold        =   0   'False
  111.       FontItalic      =   0   'False
  112.       FontName        =   "MS Sans Serif"
  113.       FontSize        =   8.25
  114.       FontStrikethru  =   0   'False
  115.       FontUnderline   =   0   'False
  116.       Height          =   375
  117.       Index           =   2
  118.       Left            =   7260
  119.       TabIndex        =   18
  120.       Top             =   1140
  121.       Width           =   1335
  122.    End
  123.    Begin Ctl3D Ctl3D 
  124.       ClassList       =   MAIN.FRX:0AFC
  125.       IgnoreColors    =   -1  'True
  126.       Left            =   8280
  127.       No3DMenus       =   -1  'True
  128.       Top             =   4920
  129.    End
  130.    Begin CommandButton cmdButton 
  131.       Caption         =   "Save"
  132.       Default         =   -1  'True
  133.       FontBold        =   0   'False
  134.       FontItalic      =   0   'False
  135.       FontName        =   "MS Sans Serif"
  136.       FontSize        =   8.25
  137.       FontStrikethru  =   0   'False
  138.       FontUnderline   =   0   'False
  139.       Height          =   375
  140.       Index           =   0
  141.       Left            =   7260
  142.       TabIndex        =   16
  143.       Top             =   240
  144.       Width           =   1335
  145.    End
  146.    Begin CommandButton cmdButton 
  147.       Caption         =   "Cancel"
  148.       FontBold        =   0   'False
  149.       FontItalic      =   0   'False
  150.       FontName        =   "MS Sans Serif"
  151.       FontSize        =   8.25
  152.       FontStrikethru  =   0   'False
  153.       FontUnderline   =   0   'False
  154.       Height          =   375
  155.       Index           =   1
  156.       Left            =   7260
  157.       TabIndex        =   17
  158.       Top             =   690
  159.       Width           =   1335
  160.    End
  161.    Begin TextBox txtCustData 
  162.       DataField       =   "E-Mail"
  163.       DataSource      =   "datCtl"
  164.       FontBold        =   0   'False
  165.       FontItalic      =   0   'False
  166.       FontName        =   "MS Sans Serif"
  167.       FontSize        =   8.25
  168.       FontStrikethru  =   0   'False
  169.       FontUnderline   =   0   'False
  170.       Height          =   300
  171.       Index           =   13
  172.       Left            =   1230
  173.       MaxLength       =   30
  174.       TabIndex        =   14
  175.       Top             =   4350
  176.       Width           =   1935
  177.    End
  178.    Begin TextBox txtCustData 
  179.       DataField       =   "Country"
  180.       DataSource      =   "datCtl"
  181.       FontBold        =   0   'False
  182.       FontItalic      =   0   'False
  183.       FontName        =   "MS Sans Serif"
  184.       FontSize        =   8.25
  185.       FontStrikethru  =   0   'False
  186.       FontUnderline   =   0   'False
  187.       Height          =   300
  188.       Index           =   9
  189.       Left            =   5355
  190.       MaxLength       =   30
  191.       TabIndex        =   10
  192.       Top             =   2325
  193.       Width           =   1605
  194.    End
  195.    Begin TextBox txtCustData 
  196.       DataField       =   "Zip"
  197.       DataSource      =   "datCtl"
  198.       FontBold        =   0   'False
  199.       FontItalic      =   0   'False
  200.       FontName        =   "MS Sans Serif"
  201.       FontSize        =   8.25
  202.       FontStrikethru  =   0   'False
  203.       FontUnderline   =   0   'False
  204.       Height          =   300
  205.       Index           =   8
  206.       Left            =   4140
  207.       MaxLength       =   10
  208.       TabIndex        =   9
  209.       Top             =   2325
  210.       Width           =   1125
  211.    End
  212.    Begin TextBox txtCustData 
  213.       DataField       =   "State"
  214.       DataSource      =   "datCtl"
  215.       FontBold        =   0   'False
  216.       FontItalic      =   0   'False
  217.       FontName        =   "MS Sans Serif"
  218.       FontSize        =   8.25
  219.       FontStrikethru  =   0   'False
  220.       FontUnderline   =   0   'False
  221.       Height          =   300
  222.       Index           =   7
  223.       Left            =   2925
  224.       MaxLength       =   30
  225.       TabIndex        =   8
  226.       Top             =   2325
  227.       Width           =   1125
  228.    End
  229.    Begin TextBox txtCustData 
  230.       DataField       =   "Address 1"
  231.       DataSource      =   "datCtl"
  232.       FontBold        =   0   'False
  233.       FontItalic      =   0   'False
  234.       FontName        =   "MS Sans Serif"
  235.       FontSize        =   8.25
  236.       FontStrikethru  =   0   'False
  237.       FontUnderline   =   0   'False
  238.       Height          =   300
  239.       Index           =   4
  240.       Left            =   1230
  241.       MaxLength       =   30
  242.       TabIndex        =   5
  243.       Top             =   1725
  244.       Width           =   2820
  245.    End
  246.    Begin TextBox txtCustData 
  247.       DataField       =   "Address 2"
  248.       DataSource      =   "datCtl"
  249.       FontBold        =   0   'False
  250.       FontItalic      =   0   'False
  251.       FontName        =   "MS Sans Serif"
  252.       FontSize        =   8.25
  253.       FontStrikethru  =   0   'False
  254.       Fon